library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_17.4.R")

diagnosis_17.3 <- 
  declaration_17.4 |> 
  redesign(proportion_hiding = seq(from = 0, to = 0.3, by = 0.1), 
           N = seq(from = 500, to = 2500, by = 500)) |> 
  diagnose_design(sims = sims, bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_17.3, file = "diagnosis_objects/diagnosis_17.3.rds")
